home *** CD-ROM | disk | FTP | other *** search
- global gSystem, gHistory, gCurr, gReturn, gLastRollover, gTA, gTB, gTC, gTD, gTE, gTF, gTG, gTH, gTI, gTJ, gTK, gTL, gTM, gGroup2, gGroup3, gGroup4, gMenu, gExit, gTADown, gTBDown, gTCDown, gTDDown, gTEDown, gTFDown, gTGDown, gTHDown, gTIDown, gTJDown, gTKDown, gTLDown, gTMDown, gGroup2Down, gGroup3Down, gGroup4Down, gMenuDown, gExitDown, gTARoll, gTBRoll, gTCRoll, gTDRoll, gTERoll, gTFRoll, gTGRoll, gTHRoll, gTIRoll, gTJRoll, gTKRoll, gTLRoll, gTMRoll, gGroup2Roll, gGroup3Roll, gGroup4Roll, gMenuRoll, gExitRoll, gsTA, gsTB, gsTC, gsTD, gsTE, gsTF, gsTG, gsTH, gsTI, gsTJ, gsTK, gsTL, gsTM, gsMenu, gsExit, gsGroup2, gsGroup3, gsGroup4, gsNavBack, gsNavMsg, gsHist1, gsHist2, gsHist3, gsHist4, gsHist5, gsHist6, gsHist7, gsInstall, gAudioList, gAudioPlayFlag, gMusicPlayFlag, gMusic
-
- on MenuInit
- global gCompletedBasics
- puppetSprite(gsInstall, 0)
- set the visible of sprite gsInstall to 0
- set gCurr to #menu
- set gReturn to #nothing
- set the castNum of sprite gsNavMsg to the number of member ("cNav" & string(gCurr))
- puppetSprite(gsTA, 1)
- puppetSprite(gsGroup2, 1)
- puppetSprite(gsGroup3, 1)
- puppetSprite(gsGroup4, 1)
- puppetSprite(gsExit, 1)
- set the visible of sprite gsMenu to 0
- sound stop 1
- updateStage()
- if gAudioPlayFlag = 1 then
- PlayAudio(#intro)
- else
- if gAudioPlayFlag = 2 then
- if gCompletedBasics = 1 then
- set gCompletedBasics to 0
- PlayAudio(#basicscomplete)
- else
- PlayAudio(#basics)
- end if
- end if
- end if
- set gMusic to #reggae
- set gMusicPlayFlag to 1
- set gAudioPlayFlag to 0
- end
-
- on MenuCleanup
- ResetRollover(0)
- sound stop 1
- puppetSprite(gsTA, 0)
- puppetSprite(gsGroup2, 0)
- puppetSprite(gsGroup3, 0)
- puppetSprite(gsGroup4, 0)
- puppetSprite(gsExit, 0)
- set the visible of sprite gsMenu to 1
- end
-
- on Group2Init
- set gCurr to #Group2
- set gReturn to #menu
- set the castNum of sprite gsNavMsg to the number of member ("cNav" & string(gCurr))
- set gMusic to #reggae
- set gMusicPlayFlag to 1
- sound stop 1
- if gAudioPlayFlag = 1 then
- PlayAudio(5)
- else
- if gAudioPlayFlag = 2 then
- PlayAudio(#select)
- end if
- end if
- set gAudioPlayFlag to 0
- puppetSprite(gsTB, 1)
- set the castNum of sprite gsTB to gTB
- puppetSprite(gsTD, 1)
- set the castNum of sprite gsTD to gTD
- puppetSprite(gsTE, 1)
- set the castNum of sprite gsTE to gTE
- puppetSprite(gsTF, 1)
- set the castNum of sprite gsTF to gTF
- puppetSprite(gsTC, 1)
- set the castNum of sprite gsTC to gTC
- puppetSprite(gsTG, 1)
- set the castNum of sprite gsTG to gTG
- puppetSprite(gsTM, 1)
- set the castNum of sprite gsTM to gTM
- puppetSprite(gsMenu, 1)
- puppetSprite(gsExit, 1)
- end
-
- on Group2Cleanup
- ResetRollover(0)
- sound stop 1
- puppetSprite(gsTB, 0)
- puppetSprite(gsTC, 0)
- puppetSprite(gsTD, 0)
- puppetSprite(gsTE, 0)
- puppetSprite(gsTF, 0)
- puppetSprite(gsTG, 0)
- puppetSprite(gsTM, 0)
- puppetSprite(gsMenu, 0)
- puppetSprite(gsExit, 0)
- updateStage()
- end
-
- on Group3Init
- set gCurr to #Group3
- set gReturn to #menu
- set the castNum of sprite gsNavMsg to the number of member ("cNav" & string(gCurr))
- set gMusic to #reggae
- set gMusicPlayFlag to 1
- sound stop 1
- if gAudioPlayFlag = 1 then
- PlayAudio(5)
- else
- if gAudioPlayFlag = 2 then
- PlayAudio(#select)
- end if
- end if
- set gAudioPlayFlag to 0
- puppetSprite(gsTH, 1)
- set the castNum of sprite gsTH to gTH
- puppetSprite(gsMenu, 1)
- puppetSprite(gsExit, 1)
- end
-
- on Group3Cleanup
- ResetRollover(0)
- sound stop 1
- puppetSprite(gsTH, 0)
- puppetSprite(gsTK, 0)
- puppetSprite(gsMenu, 0)
- puppetSprite(gsExit, 0)
- end
-
- on Group4Init
- set gCurr to #Group4
- set gReturn to #menu
- set the castNum of sprite gsNavMsg to the number of member ("cNav" & string(gCurr))
- set gMusic to #reggae
- set gMusicPlayFlag to 1
- sound stop 1
- if gAudioPlayFlag = 1 then
- PlayAudio(5)
- else
- if gAudioPlayFlag = 2 then
- PlayAudio(#select)
- end if
- end if
- set gAudioPlayFlag to 0
- puppetSprite(gsTI, 1)
- set the castNum of sprite gsTI to gTI
- puppetSprite(gsTJ, 1)
- set the castNum of sprite gsTJ to gTJ
- puppetSprite(gsMenu, 1)
- puppetSprite(gsExit, 1)
- end
-
- on Group4Cleanup
- ResetRollover(0)
- sound stop 1
- puppetSprite(gsTI, 0)
- puppetSprite(gsTJ, 0)
- puppetSprite(gsMenu, 0)
- puppetSprite(gsExit, 0)
- end
-